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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM ZOFP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1689+* TEST UNIT 003664 F025 1804 CPI 37,0 * 
1690+* 003666 1804 1805 INE v26TC JUMP IF NOT 4955 
1691+* FILE ATTACHMENT DEVICE ID'S 12/01/76 003668 4020 367A 254C 1806 MVWI X*254C*,T20T14+2 LOAD TIME CONSTANT FOR 2 SEC 
1692+* 00366E 5003 1807 J T20T2 
1693+* PURPOSE 003670 4020 367A OCOE 1808 T20TC MVWI X'OCOE!,T20T1+2 Mecue LOAD TIME CONS FOR 2 SEC 
1694+* 003676 6008 1809 T20T2 SVC RESET SSUE IO PESET 
1695+* 003678 4024 0000 1810 T20T1 MVWI xX*0000',R0 TIME CUT 2 SEC 
1696+* CALLING SEQUENCE 00367C 6002 1811 TO720 SVC IDLE * 
1697+* 00367E BSFE 1812 JCT TO720,F0 * 
1698+* THE TU WILL DETERMINE THE MODEL AND FEATURES THAT ARE INSTALLED 003680 6E03 3B8E 1813 BAL S$RECL, R6 RECALIBRATE 
16994+%* ON THE FILE BEING TESTED. 003684 3D9C 1814 DC A (SERRS) ERROR-EXIT 
1700+* 003686 4CA1 1815 TBTP ie ER) INTERRUPT ERROR? 
1701+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 003688 6A00 3D9C 1816 BON ERRS YES-EXIT 
1702+* ° TURESUL BIE O=<=-SSs-Se2- -3 M BYTE (VTL) WITH FIXED HEADS 00368C 4020 398C 012E 1817 MVWI 302,SKDCB+2 SEEK TO CE TRACK 
1703+* ° TURESUL Bil. jee SSs<=="-3= 9.3 M BYTE (DUT) WITH FIXED HEADS 003692 4020 398A 0005 1818 MVWI 5, SKDCB SEEK CONTROL WORD 
1704+* ° TURESUL/ BE 2=sses==s25-s— 9.3 M BYTE (VTL 003698 4020 3992 0000 1819 MVWI O,SKDCBt8 SELECT HEAD ZERO 
1705+* . TURESUL. BIT 3<=-->=-<=->- 9.3 M BYTE (DUTCHESS) 00369E 6E03 3B86 1820 BAL $S$EEK R6 SEEK TO CE TRACK 
1706+* ° TURESUL. BIT ts<ss3-5=sS—> LARGE FILE 0036A2 3D9C 1821 DC A (SERPS) ERROR- EXIT 
1707+* ° TURESUL. BIT. S==—s-—->—+== NOT USED OO36A4 ACAI 1822 TBTR ine EF) INTERRUPT ERROR? 
1708+* : TURESUL BI 65-==—S-----> NOT USED 0036A6 6A00 3D9C 1823 BON ERRS YES-EXIT 
1709+ TURESUL, BIT (2 ess-—Ses->— NOT USED OO36AA 4020 396A 200A 1824 MVWI xX*'200A',RSDCB READ SECTOR ID CONTROL WORD 
1710+* ° LURESUL. BIT: 6=—=-=<--+S-= NOT USED 0036B0 4020 3A18 0000 1825 MVWI 0O,LGSEC INIT LOG SECT LOC 
1711+* ° TURESUL, BIT 92s =-ess4= NOT USED 0036B6 6E03 3B34 1826 S20B BAL CONVT,R6 CONVERT LOG SECT TO PFRYS-1 
1712+* « TURESOL.. BIT -10<-<<--=-=-= NOT USED OO36BA 8028 3A1B 396E 1827 NVB PHYSC+1,RSDCBt4 LOAD PHYSC SECT -1 IN PDSEC DCR 
1713+* “ LURESUL BIT  “Vis-Seo--eee= NOT USED 0036C0 6E03 3B96 1828 BAL $RDID,RO READ SECTOR ID 
1714+* ° TURESUL BIT 12--=<=-=s2+> NOT USED 0036C4 3D9C 1829 DC A (SERPS) EPPROR- EXIT 
1715+* & 2URESUL. BIT 13=-==s+==+-+-< NOT USED 0036C6 4CA1 1830 TBTR (R4,ER) INTERRUPT ERROR? 
1716+* . TURESUL BLT “Va-=<<+===<=-- NOT USED 0036C8 6A00 36EE 1831 BON S206 YES-EXIT 
1717+* ° TURESUL BIT (15-=-=+-<+=-> NOT USED 0036CC 802B 39FA 34D3 1832 CB ZEROO,SCTID+1 FLAG ZERO? 
1718+* . 0036D2 1804 1833 JNE S20C NO 
1719+* 0036D4 402F 34D4 012E 1834 CWI 302,SCTID+2 CE TRACK? 
1720+* RETURN CONTROL 0036DA 1009 1835 JE $206 YES 
1721+* 0036DC 402F 3A18 003B 1836 S20C CWI 59, LGSEC END OF TRACK? 
1722+* B TURTN* RETURN TO MDI SUPERVISOR 0036E2 6800 3D9C 1837 BE SERRS YES-BAD TRACK-RESTART ROUTINE 
1723+* 0036E6 4029 3A18 0001 1838 AWI 1,LGSEC INCREMENT LOG SECT NUM 
A ac lala ly eh aa a O036EFC SORG 1839 J s50B LOOP 
Q0O35DE 6F0D 3502 1725+T7812 MVW TN SAVE RETURN ADDRESS 1840 S20D fTXIT 
0035E2 4020 34CA 7812 1726+ MVWI R485" STUID SAVE TU ID FOR DISPLAY QO036EE 6802 3DEC 1841+S20D B SCONX RETUPN TO MDI CONTROLLER 
O0O35E8 4424 34Cc4 1727+ MVA OPTN 1, RG SET UP POINTER ADRS IN R4 1 BUD + ee RR OR ROR RII I ROR III IO IIR I ROR II OR ROR IO ii ak eau ahi ak ak 
0O035EC 6E03 3D68 1728+ BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BL 1843 * 
0035FO0 3D9C 1 aR DC A (SEPP $) ERROR ADRS FO8 INVALID PREP 1344 
+ 
0035F2 CA25 18C8 1731 MVWZ TURESUL, ae CLEAP FESULTS WORD 1847 COPY T7872 01DEC76 
OO35F6 4224 18C8 1732 NVA TURESUL ADDRESS OF RESULTS 1848 33 OR RR RI IIO III IG III IO i iC a a gog aak ak 
OO35FA 4724 3D54 1733 NVA IOBLK, Ran? RESET DEVICE 1849 *T7872 * 
OO35FE 6008 1734 Svc PESET’ * 1850 THIS TU INHIBITS INTERRUPT 12/01/76% 
003600 4724 3D54 1735 MVA IOBLK,R7 READ DEVICE ID 1851 * CALLING ROUTINE LOOPS ON T72A 
003604 6009 1736 SVC RID * 1852 BOE CRIA aH SHG GR aU RIGO ISIS UOGEGIE CIE IGE ICI REE IG x 
003606 402F 3D5E 00B2 1737 CWI X'OOB2' ,TOMOD+4 VTL WITH FIXED HEADS? 0036F2 6FOD 3502 1853 17872 MVW R7,TURTN SAVE RETURN ADDRESS 
00360C 1012 1738 JE T12A YES 0036F6 4020 3D58 0020 1854 MVWI x'6020',10DCB PREP TO LEVEL 2 WITH THE 'I* RIT OFF 
Q00360E 402F 3D5E OOBA 1739 CWI X'OOBA!t, TOMOD+4 DUTCHESS WITH FIXED HEADS? 0036FC 4724 3D54 1855 MVA TOBLK, RI * 
003614 1011 1740 JE T12B YES 003700 600C 1856 SVC PREP * 
003616 402F 3D5E O0A2 1741 CWI X'OOA2',TOMOD+4 VIL,NO FIXED HEADS? 003702 5002 1857 J T72B 
00361C 100F 1742 JE T12C YE | 003704 6FO0D 3502 1858 T72A MVW R7, TURTN SAVE RETURN ADDRESS 
00361E 402F 3D5E OOAA 1743 CWI X"OOAA',IOMOD+4 DUTCHESS, NO FIXED HEADS? | 003708 6802 3DEC 1859 T72B B $CONX EXIT 
003624 100D 1744 JE T12D YES 1860 * 
003626 402F 3D5E OOCA 1745 CWI X'OOCA' ,TOMOD+4 LAPGE FILE? 1862 COPY T7884 01DEC76 
00362C 100B 1746 JE T12F YES 1863 T7884 TUIT SERRS 
00362E 6802 3D9C 1747 SERRS INVALID ID, TU RESULTS NG 1 BG + 62 RR RIOR III III IIR IRI ak took 4c) 6 FP EB 7 6x 
003632 4a40 1748 T12A TBS (R2,0) VTL WITH FIXED HEADS 1865+* 
1749 T12E TXIT * YES 1866+* TEST UNIT 
003634 6802 3DEC 1750+T12E B SCONX RETURN TO MDI CONTROLLER 1867+* 
1751+ RR RO OR IOI IOI IORI ICI III 2 II GIGI GOR fok akaak ok deg ik 18684+* TU84 WRITE AND READ ID TEST 12/01/76 
1752 * 186 9+* 
003638 4aA41 1753 T12B TBTS a2 1) DUTCHESS WITH FIXED HEADS 1870+* PURPOSE 
00363A SOFC 1754 J 125 EXIT 1871+* 
00363C 4YA42 1755 T12C TBTS Aue 2) VTL NO FIXED HEADS 1872+* FUNCTION: 
00363E SOFA 1756 J 12& EXIT 1873+ 
003640 4aA43 1757 T12D TBTS os 3) DUTCHESS NO FIXED HEADS 1874+* . PROGRAM INITIALIZES ATTACHMENT. 
003642 50F8 1758 J 126 EXIT 1875+* < RECALIBRATE 
O0O3644 YA4Y 1759 T12F fTBTS Ane 4) LARGE FILE 1876+* % SEEK TO CE TRACK 
003646 50F6 1760 J 12k EXIT 1877+* ° SELECT HEAD FROM CF INPUT (0-1 OR O- eee 
1761 * 1878+* ° WRITE ID ON SECTOR #0 OR NEXT GOOD SECTOR (55) 
1763 COPY 17820 01DEC76 1879+* ° READ AND COMPARE ID BYTES 
1764 T7820 TUIT SERRS 1880+* ° WRITE ID ON SECTOR #0 OP NEXT GOOD SECTOR (AA) 
17 6 5.4 3k IRR II III OO IGOR IG OR i do dakok 40k) 6 FEB 76 1881+* : READ AND COMPARE ID BYTES 
1766+* 18824+* . RESTORE CE TRACK WITH ORGINAL ID BYTES 
1767+* TEST UNIT 1883+* “ 
176 8+* 1884+ 
este T7820 SETUP FOR SCOPE LOOPS 12/01/76 ere CALLING SEQUENCE 
+ 1 +* 
1771+* PURPOSE 1887+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
1772+* 1888+* . TURESUL BIT O----NOT USED 
1773+4* FUNCTION: 1889+%* . TURESUL BIT 1----NOT USED 
1774+* ° 1890+* ° TURESUL BIT 2----NOT USED 
1775+* PROGRAM INITIALIZES ATTACHMENT. 1891+* . TURESUL BIT 3----NOT USED 
1776+ RECALI BRATE 1892+* ° 
1777+* P SEEK TO CE TRACK 1893+* : TURESUL BIT 4----NOT USED 
1778+* ° 1894+ ° TURESUL BIT 5----NOT USED 
1779+* 1895+%* ° TURESUL BIT 6----READ ID 
ae CALLING SEQUENCE ee ° TURESUL BIT 7~---INTERRUPT 
+ + ‘ 
1782+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORM AT: 1898+* 5 TURESUL BIT 8----RECAL 
1783+* ° NO STATUS PASSED BACK TO MDI 1899+* ° TURESUL BIT 9----SEEK 
1784+* e 1900+* ° TURESUL BIT 10---ALL SECTORS ARE BAD(FLAG NOT O OR ERR'S) 
1785+* EXITS NOPMAL 1901+* ° TURESUL BIT 11---NOT READY 
1786+* . MDI TERMINATES LOOP 1902+* “ 
1787+* . 1903+* - TURESUL BIT 12--~-EXCEPTION END OTHER THAN (ihe 14 OR 15) 
1788+* EXITS ERROR 1904+ ° TURESUL BIT 13---ID TEST PATTERN WRT/RD ERRO 
1789¢* . NONE 1905+* . TURESUL BIT 14-~-UNSAFE 
1790+* 1906+* e TURESUL BIT 15---ECHO CHECK 
1791+* RETURN CONTROL 1907+* s TURESUL BITS 16-32 CS STATUS 
1792+* 1908+* “ 
1793+* B TURTN* RETURN TO MDI SUPERVISOR 1909+* EXITS NORMAL 
1794+* 1910+* ° RETURNS TO MDI SUPERVISOR WHEN DONE. 
17954 2 ORI RIO IOI IG III CIO RIO IOI IOI RIO foto dak dak i tole tos tok 1911+* : 
003648 6F0D 3502 1796+T7820 MVW R7,TURTN SAVE RETURN ADDRESS 1912+* EXITS ERROR 
00364C 4020 34CA 7820 1797+ MVWI X'7820',$TUID SAVE TU ID FOR DISPLAY 1913+* ° RETURNS TO MDI SUPERVISOR. 
003652 4424 34c4 1798+ NVA OPTN1,R4 SET UP POINTER ADRS IN R4 1914+ 
003656 6E03 3D68 1799+ BAL SCONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BL 1915+* RETURN CONTROL 
00365A 3D9C 1800+ DC A (SERRS) ERROR ADPS FOR INVALID PREP 1916+* 
1801+* 1917+* B TURTN* RETURN TO NDI SUPERVISOR 
00365C 4724 3D54 seas S20A AMVA IOBLK,R7 SETUP IOBLK 1918+* 
003660 C020 0232 180 MVB CPUID,RO DETERMINE TYPE OF PROCESSOR 19-194 OO RII RIO OIG IIR III IOI RIO IIIOIOR RO ROR IO Cg gC 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEHENT COPYRIGHT IBM CORP 1976 
2378 * 2493 * 
OO3AFA 6F05 2379 IORST DC X'6FO5! RESET 2uU94 * RETURN 
OO3AFC 2205 2380 IDCBO Dc X¥*2205! SENSE WORD ZERO 2495 * 
OO3AFE 0000 2381 RDATAO DC A (37 *) DATA RD 2496 * BXxs (2 6) 
003B00 2105 2382 IDCB1 DC x¥'*2105' SENSE WORD ONE 2497 * 
003B02 0000 2383 RDATA DC oT hae | 2498 whe she Ae se we He Ae Me she se she afc He ae He she he Ie se Ie Ie Me Me she Be Me Be He af ae 3H she we He se we We she she Me se ah ae We ee He ac she He he she fe he He fe ae He she he He He he he He hehe ee 
003B04 4005 2384 IDCBCE pc x4oost CE DIAG OP1 2499 * 
003B06 9090 2385 CEDAT As *) SENSE DATA 2500 * 
003B08 105 2386 FDCBCES. pc x'4105# CE DIAG OP2 003B76 4724 0005 2501 LWSID MVWI 5,R7 BYTE COUNT 
003B0A 0000 2387 CEDAT2 DC oad t SENSE DATA OO3B7A 4324 34D3 2502 MVA SséTID+1,R3 ADDR OF RD SECT ID DATA BUFFER 
0OO3B0C 2F05 2388 IDCBRAP DC x'2FO5! READ DIAG WRAP O0O3B7E 4524 3A20 2503 MVA WRSID,R5 ADDR OF WR SECT ID DATA BUFFER 
OO3B0E 0000 2389 RAPDAT DC Le ae | SENSE DATA 003B82 2BA4 2504 MVFN (R3), (B5) MOV DATA FROM RD TO WR BUFFER 
000232 2330 cPOID EQU x*'0232° CPU I 003B84 5600 2305 ‘ BXS R6 RETURN TO CALLER 
2393 78I0 OIDECT6 2508 * 
2394 ** (T78 Oo} 2509 * XECUTE INPUT & OUTPUT COMMANDS 
2395 HH RLE REY RRR TOR AIR RCA IE IK 2/01/77 68 IE I III ROR III I RO I 2510 * TO EXECUTE ALL I/0 COMMANDS FROM A COMMON PLACE. 
2396 * 2511 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
2397 * SUBROUTINE 2512 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
2398 * 2513 * SUPVYR CALL. 
2399 x PURPOSE 2514 * ¥ 
; 2400 * 2515 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
24u01 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 2516 * ; 
2402 * NORMAL AND TEST DATA. 2517 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
2403 * 2518 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
2404 * CALLING SEQUENCE 2519 * 
2405 * 2520 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
2406 * BAL CMPRW,R6 NORMAL) 2521 * a 
ga07 : BAL CMPRT;R6 TEST) 2522 : 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 
2403 : RETURN 2224 : 2 BAL SWKST, R6 WRITE SECTOR ID SKEWED (TEST) 
2444 BXS (R6,2) - NORMAL 2228 3 BAL SRWST,R6 READ SECTOR ID SKEWED (TEST) 
2413 * 2528 * 4 BAL SRIDS,R6 READ SECTOR ID (TEST) 
DU YL Hea HHH He ae a He a HO HI RH HH HR HC HE HR RR I I Fok a a ok 9529 * 3 
2415 * 2530 * 5 BAL SWKEW,R6 WRITE SECTOR ID SKEWED 
003B10 4724 0005 2416 CMPPT MVWI 5,R7 BYTE COUNT 2531 * > 
003B14 4324 3A2F 2417 MVA séTSst+1,R3 ADDR OF RD SECT ID DATA (TEST 2532 * 6 BAL $WSEC, R6 WRITE SECTOR ID 
003B18 4524 3A28 2418 MVA WSIDT,R5 ADDR OF WR SECT ID DATA (TEST 9533 * _ 
003B1C 5006 2419 J Tay 2534 * 7 BAL $WSTS,R6 WRITE SECTOR ID (TEST 
003B1E 4724 0005 2420 CMPRW MVWI COMPARE BYTE COUNT 2535 * : 
003B22 4324 34D3 2421 MVA SeTID+1 R ADDR OF RD SEC ID DATA 2536 * 8 BAL S$DIAG,R6 DIAGNOSTIC 
003B26 4524 3a20 2422 MVA ner ADDR OF WR SEC ID DATA 2537 * : 
OO3B2A 2BA6 2423 TT4Y CFNEN fee) Pe) COMPARE ID DATA 2538 * 9 BAL XIOCS ,RE CYCLE STEAL STATUS 
003B2C 68C0 0002 2424 BE 72) BCH IF WRITE ID DATA OK 2539 * i 
003B30 68D2 0000 2425 ‘ B Rese COMPARE EPROR 2540 : 10 BAL SSEEK ,R6 SEEK 
2427 eH He He Me Me ae Be he Se Me ec Ke He He ee he he ee Me ee he ee eK ie ee He eK IK Me he Ke HM ake ie He ake He he ac oe ee oe 2K eke oe ek He ke Kk Kk Kk Kk OK 2542 *& 11 BAL SRECL,R6 RECALIBRATE 
2428 * 2543 * : 
2429 * SUBROUTINE 2544 * 12 BAL SRDID,R6 READ SECTOR ID 
2430 * 2545 * 2 
2431 * PURPOSE 2546 * 13. BAL SRD, R6 PEAD 
2432 * CONVERT LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR MINUS { 2547 * 3 
2433 * ONE. 2548 * 14 BAL SRDVY,R6 READ VERIFY 
2434 * SETUP LOGICAL SECTOR # IN LOCATION 'LGSEC! 2549 * a 
2430 4 PHYSICAL SECTOR # WILL BE LOADED IN LOCATION 'PHYSC! 2550 15 BAL SWRT RE WRITE 
2437 * LOGICAL SECTOR# TO PHYSICAL SECTOR# CONVERSION 2552 * 
2438 * LOGICAL- X 00, 1E, 01, 1F, 02, 20, 03, 21, O4, 22, 05, 23, 06, 24, 003B86 4020 3D58 398A 2553 SSEEK MVA SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
2439 : PHYSICAL X 00; 01, 02, 03, OU, 05, O06, O07, 08, 09, OA, OB, OC, OD, OO03B8C 5064 2554 : J XTO 
2441 * LOGICAL- O7, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B 8E 4020 3D58 394A 2556 $RECL MVA CLDCB, ILODCB SET UP BLOCK FOR SVC CALL 
24 ke : PHYSICAL OE, OF, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, TA, 1B, noaCor para , 2557 : J XIOo ” 
2 
2444 * LOGICAL- OE, 2C, OF, 2D, 10, 2E, 11, 2F, 12, 30, 13, 31, 14, 32, 003B96 4020 3D58 396A 2559 $RDID MVA RSDCB, TODCB SET UP BLOCK FOR SVC CALL 
2445 * PHYSICAL 1c, 1D, TE, 1F, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 003B9C OBFF 2560 MVBI X'FF'SR3 SET BUFFER TO F'S 
2446 * OO3B9E 4524 34D2 2561 MVA SCTID,;R5 SETUP READ SECTOR ID BUFFER ADPS 
2447 * LOGICAL- 15, 33, 16, 34, 17, 35, 18, 36, 19, 37, 1A, 38, 1B, 39, OO3BA2 4724 0006 2562 MVHI 6 4] SETUP BUFFER LENGTH 
2448 * PHYSICAL 2A, 2B, 2C, 2D, 2E, 2F, 30, 31, 32, 33, 34, 35, 36, 37, 0O03BA6 2BAC 2563 FFN {85 } INIT READ SECTOR ID BUFFER 
2449 * OO3BA8 4020 3978 34D2 2564 MVA RS, D,RSDCB+14 DATA ADDR 
2450 * LOGICAL- 1C, 3A, 1D, 3B, X OO3BAE 5053 2565 J XIo 
2451 * PHYSICAL 38, 39, 3A, 3B, X 2566 * 
2452 * 003BBO OBFF 2567 $RD MVBI X'FF!,R3 SETRD BUFFER TO ALL F'S 
2453 * 003BB2 6D08 39D8 2568 MVW  RDDCBE+14,R5 SET UP READ BUFFER ADRS 
2454 * CALLING SEQUENCE 003BB6 4724 0100 2569 MVWI X10100" yRT SET UP BUFFER LENGTH 
2455 * 0O3BBA 2BAC 2570 FFN (P5) | CLEAR READ BUFFER 
2456 * BAL CONVT,R6 OO3BBC 4020 3D58 39CA 2571 $RD$ MVA EDBCB, ODCB SET UP BLOCK FOR SVC CALL 
2457 * 003BC2 5049 2572 J XI 
2458 * RETURN 2573 * 
2459 * 003BC4 4020 3D58 39BA 2574 $SRDVY MVA VRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
Sen < B (TT304+2) OO3BCA 5045 2249 : J XIO 
2462 ee OO3BCC 4020 3D58 39AA 2577 SWRT MVA WRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO3BD2 5041 2578 J XTO 
003B34 6E0D 3B74 2464 CONVT MVW TT30442 SETUP RETURN ADDR 2579 * 
003B38 802B 39FA 3A19 2465 CB 22600, LGSEC+1 CK FOR LOG # ZERO 003BD4 4020 3D58 39EA 2580 $RKEW HVA RXDCB, TODCE SET UP CONTROL BLOCK FOR SVC CALL 
003B3E 100D 2466 JE 773 03° BCH IF LOG # IS ZERO OO3BDA OBFF 2581 MVBI X'FF',R3 SET BUFFER TO F'S 
003B40 802B 3A19 3A1C 2467 CB LGSEC+1,CB29 COMP LOG TO 29 OO3BDC 4524 34D2 2582 MVA Scrip! R5 SETUP READ SECTOR ID BUFFER ADRS 
003B46 1COD 2468 JGE RTTO1 BCH IF LGSEC EQ. OR LESS THAN CB29 OO3BEO 4724 0006 9583 MVWI 6. R7 SETUP BUFFER LENGTH 
OO3B48 4024 0002 2469 MVWI RO SETUP MULTIPLIE OO3BE4 2BAC 2584 FFN AR 5} INIT READ SECTOR ID BUFFER 
0O0O3B4C E821 3A19 2470 MB L&SEce, RO LOG SECTOR # TIMES 2 OO3BE6 4020 39F8 34D2 2585 MVA St D,RKDCB+14 DATA ADDR 
003B50 7802 003C 2471 SWI 60,F0 LOG SEC TIMES 2 MINUS 60 OO3BEC 5034 2586 J XI 
003B54 C028 3A1B 2U72 MVB RO. PHYSC+1 PHYSTCAL SECTOR NUMBER 2587 * 
003B58 500C 2473 J TT RETURN TO CALLER OO3BEE 4020 3D58 39DA 2588 S$WKST MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVs CALL 
003B5A 8028 3A1E 3A1B 2474 TT303 MVB FIVES , PHYSC#+1 PHYSICAL SECTOR # 59 OO3BF4 4020 39E8 3A28 2589 MVA WSIDT, WKDCB+14 DATA ADDR 
003B60 5008 2475 J TT 304" RETURN TO CALLER OO3BFA 502D 2590 J XIO 
003B62 4024 0002 2476 RTTO1 MVWI LOAD MULTIPLIER 2591 * 
003B66 E821 3A19 2477 MB LESEC+1 ,RO LOG SECTOR # TIMES 2 OO3BFC 4020 3D58 39EA 2592 S$RWST MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO3B6A 7802 0001 2478 SWI SUBTRACT ONE 003C02 4020 39F8 3A2E 2593 MVA SCTST,RKDCB+14 DATA ADDR 
OO3B6E C028 3A1B 2479 MHVB #6 PHYSCtH1 LOAD PHYSICAL SECTOR # 003C08 5026 2594 J XIO 
003B72 6802 0000 2480 TT304 B ~* RETURN TO CALLER 3595 x« 
2481 * 003COA 4020 3D58 396A 2596 $RIDS MVA RSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
2482 PPPS SSS LSS SSS SSS SSPE SSE SE SSS SPSS PES ELSE LS SSS SSS SSS SESS SSS SSL FS StS SESS SS SF 003cC10 OBFF 2597 MVBI X'PFReE »R3 SET BUFFER TO FTtS 
2483 * 003C12 4524 3A2E 2598 MVA_  SCTST,RS5 SETUP READ SECTOR ID BUFFER ADRS 
2484 * SUBROUTINE 003C16 4724 0006 2599 MVWI R7 SETUP BUFFER LENGTH 
2485 * 003C1A 2BAC 2600 FFN R23 (R5) INIT READ SECTOR ID BUFFER 
2486 * PURPOSE 003C1C 4020 3978 3A2E 2601 HVA ScfStT) RSDCB+14 DATA AD 
2487 * 003C22 5019 2602 J XIO 
24U88 * LOAD WRITE SECTOR ID DATA BUFFER FROM RD SEC ID BUFFER 7603 * 
2489 * 003C24 4020 3D58 39DA 2604 $WKEW MVA  WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
ae . CALLING SEQUENCE Q03C2A 4920 39E8 3A20 2605 NVA WESID, "WKDCB+14 DATA ADDR 
2492 * BAL LWSID,R6 oo 28 O12 2607 * 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003C32 4020 3D58 395A 2608 SWSEC MVA WSDCB,TODCB SET UP CONTPOL BLOCK FOR SVC CALL 2724%+* 
003C38 4020 3968 3A20 2609 MVA WRSID,WSDCB+14 DATA ADDR 2725+* CALLING SEQUENCE 
003C3E 500B 2610 J XIO 2726+% 
003C40 4020 3D58 395A 2611 SWSTS HVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2727+ SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND 
003C46 4020 3968 3A28 2612 MVA WSIDT,WSDCB+14 DATA ADDR 272 8+* 
003Cc4Cc 5004 ooaa J XIO a ae RETURN CONTROL 
+ 
OO3C4HE 4020 3D58 393A 2615 SDIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2731+* B (R6) * PETURN TO USERS ERROR HANDLER 
003C54 5000 2616 J XIO 2732+* 
2617 XEQIT DTZ DERE RR I RE Or gk oi dak ak i takaigakota iii doa tote ok 2k 
26 TBE RH HR RK HK RO AOR RII FOR ROK RR RR RR RR ROR FOR Ro Sk eo KAKI OG JUL 6 ** 2734+% 
2619+* 2735+* CC = DEVICE NOT ATTACHED 
2620+* SUB-ROUTINE 2736+* FOR = DEVICE BUSY 
2621+* 2737+* I/0 = DEVICE BUSY AFTER RESET 
2622+* EXECUTE INPUT AND OUTPUT COMMANDS 2738+* = COMMAND REJECT 
2623+* 2739+* = INTERVENTION REQUIRED 
2624%*% PURPOSE 2740+* = INTERFACE DATA CHECK 
2625+* 27414+* = CCNTROLLER BUSY 
2626+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2742+% = I/O COMMAND EXCEPTED 
2627+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 2743+4+%* 
2628+ 003CBC 706E 27444+XTOER DC X'7O6E!* COPY STATUS ANY LEVEL INTO R3 
2629+4+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED OO3CBE 336A 2745+ SEL 13,F3 POSITION CC CODE TO BITS 13-15 
26304+* THE I/O COMMAND. 003CCO C328 34CC 2746+ MVB R3,S510IN * PUT IN LOG OUT AREA 
2631+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A STAFT CYCLE STATUS 003CC4H 68D2 0000 2747+ B ( * RETURN TO USER ERROR HANDLER 
2632+* ISSUED BY THIS SUBROUTINE. QTD 4% KE I II A IR a OR OR lakok dak dk tok kk dk kok okie TOA PR 76 
2633+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 2750+* TL 
2634+4+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 2751+* SUB-ROUTINE IL 
2635+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 2752+* IL 
263 6+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 2753+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL' TL 
263 7+% MYSTERY INTEPRUPT cee) CONTROL BIT IS SET. 2754+ IL 
2638+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN RV, SET THE 2755+* PUPPOSE IL 
2639+% EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE ‘SVC  START!. 2756+* IL 
2640+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 2757+% THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
26414+* STARTS TO DETERMINE A LOST INTERRUPT. 2758+* OF THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
2642+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 2759+* EXPECTED CODE. TL 
2643+% WAS AN ERROR OF OKAY AND EXIT OFF THE INTERRUPT LEVEL. 2760+* TL 
2644+ 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 2761+* CALLING SEQUENCE IL 
2645+%* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 2762+* IL 
2646+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 2763+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 
264 7+%* 141. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 2764+* TL 
2648+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 2765+* RETURN CONTROL TL 
26494+* ISSUED BY THIS SUBROUTINE. 2766+* IL 
2650+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 2767+* svc EXIT RETURN TO USER VIA SUPVR TL 
2651+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHE? BIT BEING ON, 2768+%* TL 
2652+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 276 9+ 8 I OIC Oo giok og ok ga ioko kok ik aokoiok dodo ao dake tok TT 
2653+%* 2770+* TL 
26544+* CALLING SEQUENCE 27714+* CC = CONTROLLER END ISB = ADD STATUS IL 
2655+* 2772+* FOR = PROGRAM CONTROL INTEPRUPT BITS = COMD REJECT TL 
2656+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2773+* INTR = EXCEPTION INTERRUPT FOR = INCOR LENGTH IL 
2657+* 2774+4% 3= DEVICE END INTERRUPT INTR = DCB SPEC CK IL 
2658+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 2775+* = ATTENTION INTERRUPT = STG DATA CK IL 
2659+* --> BAL XIO1 MOD PARM PRELOADED IN 'romob' 2776+* 5= ATTENTION / PROGPAM CNTL INTR = INV STG ADRS IL 
2660+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 2777+* 6= ATTENTION / EXCEPTION INTR = PROTRCT CK IL 
2661+* --> BAL XTOCS—-4 ,R6 AUTO CS STATUS (FOLLOWING OTHER XIO | 2778+% 7= ATTENTION / DEVICE END INTR = I-FACE DATA TL 
2662+* te AND DOES NOT POST INTERRUPT STATUS) 2779+% IL 
2663+* 003CC8 T706E 2780+ INTER DC X'706E! COPY STATUS ANY LEVEL INTO R3 TL 
26644+* RETURN CONTROL QOO3CCA 336A 2781+ SRL 13,F3 POSITION INDICATORS IN R3 IL 
2665+* 003CCC 4424 34Cc4 2782+ MVA OPTN1,R4 SET UP BASE ADRS IL 
2666+4+* BXS R6,2) RETURN TO USER NO ERROR 003CDO0 4C28 2783+ TET at c$) IS CS IN PROGRESS TL 
2667+* OR B R6) * RETURN AND RETRY ON ERROR 003CD2 1006 2784+ JOFF nTES * NO IL 
26 6B a HK KH He ee He He He He hee He he KK He 3c 2h He 2 a he 2 ae ka 2 aie oe ae ae he ae i oe he a ae 3 oe he oe 2 eK fe i ic i Re Fe He ee ae oe OO3CD4 UCB6A 2785+ TBTS (R4,CE TURN ON CYCLE STEAL INTER EPROR IL 
003C56 CB25 3D5A 2670+ XI0 MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 003CD6 6FOD 34F8 2786+ MVW R7,CST 8 SAVE CS ERR ISB VALUE, BITS 0-7 TL 
003C5A 500A 2671+ J XI01 CS I/O'S ARE NOT RETRIED OO3CDA C328 34F9 2787+ MVB R3,CSTL8+1 * AND THE COND CODE IL 
2672+% OO3CDE 500A 2788+ J INTP1 TL 
003C5C 4CAA 2673+ TBTR R4Y,CE RESET CS STATUS INTER ERROR INDICAT. QO3CEQ 4C24 2789+INTES TBT ite XE) TEST EXPECTED ATTEN / ERROR IND IL 
QO03C5E 4C68 26744 TBTS R4,CS SET "CYCLE STEAL STATUS' IN PROGRESS 003CE2 1002 2790+ JOFF nrtéT BCH IF NOT EXPECTED IL 
003C60 4020 3D58 399A 2675+XIOCS MVA SDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL OO3CE4 F304 2791+ CBI 4 ,R3 TS THIS AN "ATTENTION! INTR TL 
003C66 4020 3D5A OOOF 2676+ MVWIT X'000f* ,TOMOD SET CYCLE STEAL MODIFIER OO3CE6 1006 2792+ JE INTR1 * YES, BCH TO END INTR SEQUENCE IL 
Q003C6C 4C28 2677+ TBT (R4,CS) IS CS IN PROGRESS, ERROR CONDITION O03CE8 4C61 2793+INTET TBTS R4 , ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
003C6E 1213 26784 JON x02 * YES, BYPASS SAVING I/O ADRS OO3CEA 5004 27944 J nth IL 
003C70 6E0D 34D0 2679+XIO1 MVW R6,LSTIO SAVE TAP FOR PETRY IF REQUESTED 2795+% THE ERROR INTERRUPT USES THE SAME IL 
003C74 4324 34DA 2680+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 2796+* ENDING SEQUENCE AS THE NORMAL INTR IL 
003C78 6D08 3D58 2681+ MVW TODCB,R5 * AND THE FROM ADRS, ALONG WITH 279 B+ KE RO RRR OR IO gi Rg goktk oka tok took tk tk 1 ADR 76 TL 
003C7C OF10 2682+ MVBI 16,R7 * THE NUMBEP OF MOVES 2799+ IL 
OO3C7E 2D64 2683+ MVFN AR) te?) MOVE 1 STATUS WORD AND ADJUST 2800+* SOUBROUTINE Ty 
003C80 OBFF 2684+ MVBI 55,8 CLEAR CYCLE STATUS BUFFER 2801+* IL 
003C82 4524 34EA 2685+ MVA CSBOF,R5 * TO ALL ONES * 2802+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTI! IL 
003C86 OQOF10 2686+ MVBI eRl * 2803+* TL 
003C88 2BAC 2687+ FFN R AB2} * 2804+* PURPOSE IL 
O003C8A 4020 34CC 0708 2688+ MVWI x6 08° ,SIOIN OVERLAY OLD CONDITION CODES 2805+* TL 
003C90 CB25 34CE genes MVWZ SISB,R3 ZERO OUT OLD ISB VALUE Aas TO CHECK THE INTERRUPT AND CONTINUE THE TEST ah 
+ + 
003C94 4CA1 2691+ TBTR R4,ER RESET ANY EPROR BEFORE 1/0 COMMAND 2808+* CALLING SEQUENCE IL 
003C96 4CA3 2692+XIO2 MTBTR RY,IN CLEAR INTERRUPT RECEIVED CNTL BIT 2809+* IL 
003C98 4724 3D54 2693+ MVA OBLK , R7 SET UP CONTROL BLOCK FOR SUPVR 2810+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
003C9C 4CA6 26944 TBTR R4,$LE) RESET LEVEL ERPOR INDICATOP 2811+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
QOO3C9E 4C62 2695+ TBTS RY ,XT) SET EXPECTED INTR CONTROL BIT 2812+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE TL 
O03CAO0 600A peaa ns SVC TALT CALL SUPVP FOR I/O COMMAND a pees COMMON SECTION IS HANDLED HERE. +f 
+ + 
QO03CA2 4CAT 2698+ TBTR RY ,NI) IS AN INTR EXPECTED 2815+* RETURN CONTROL IL 
OO3CA4 6ACO 0002 26994 R6,2) * NO, RETURN TO USER 2816+%* TL 
2700+* 2817+* SVC EXIT RETURN TO USER VIA SUPVR IL 
2701+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 2818+* IL 
2702+* 2819 + RK IO RIOR I IORI IIR lok gaiokiokotaiciagalok gat ao TT 
003CA8 0ODOO 2703+ MVBI xX'00!,R5 SET UP WORK REG FOR "LOST INTR! O003CEC T706E 2820+INTOK DC X*706E* COPY STATUS ANY LEVEL INTO R3 Be & 
OO3CAA 4CA3 2704+XIO8 TBTF se 5 tft) HAS INTERRUPT BEEN RECEIVED QO3CEE 336A 2821+ SRL 13,R3 POSITION INDICATORS IN R3 IL 
QO3CAC 1238 2705+ JON Toe * YES, CHECK IF ALL WAS SATISFACTORY OO3CFO 4424 2822+ MVA OFfN1, RY SET UP BASE ADRS TL 
OO3CAE 6002 2706+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN OO3CF4 4C63 2823+INTR1 TBIS R4,1f SET INTERRUPT RECEIVED TL 
2707+* SUPVR WILL RETURN HERE OO3CF6 4C28 2824+ TBT R4,CS IS 'CS YN PROGRESS’ ON TL 
0O03CBO 7DA1 0001 2708+ AWI 1,R5 ADVANCE TIME OUT COUNT QO3CF8 1204 2825+ JON nth? * YES, BCH AROUND UPDATE TL 
O0OO3CB4 18FA 2709+ JNZ XxIos BCH IF TIME OUT NOT REACHED QO3CFA C328 34CD 2826+ MVB R3,510IN+1 SAVE INTERRUPTING CC COD TL 
0O03CB6 4c61 2710+ TBTS R& , ER) SET ON ERROR CONTROL BIT OO3CFE 6FOD 34CE 2827+ MVW R7, S1SB SAVE INTR STATUS AND DEV ADRS IL 
O0O3CB8B 68D2 0000 2711+ B R fs ERR 'NO INTERFOPT! 003D02 2828+INTR2 EQU * IL 
QTV BERR RIK RRR RII II IG RII ig iok kok doko SF EB 76 ** 2829+ CPCL R5 CURRENT LEVEL COPIED BY DCP TL 
27144 003D02 3521 2830+ SLL 4 ,R5 POSITION INTR LEVEL AND PUT TL 
2715+* SUBROUTINE 003D04 0501 2831+ ABI 1,85 * IN 'I' BIT TL 
2716+* 003D06 CD24 3500 2832+ CW S{NTL,RS IS THIS THE CORRECT INTR LEVEL Tl 
2717+* I/O EXECUTE ERROPF HANDLING ROUTINE QO3D0A 1002 2833+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 
2718+* Q0O03D0C 4C66 28344 TBTS R4,$LE) SET INTPR LEVEL EPROR CONTROL BIT IL 
2719+* PURPOSE OO3DO0E 4C61 2835+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT TL 
2720+* 003D10 4CA2 2836+INTR3 TBIR RG ,XI WAS INTERRUPT EXPECTED IL 
27214* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 003D12 1204 2837+ JON NTRX * YES, EXIT OFF THIS INTR LEVEL IL 
2722+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 003D14 4C460 2838+ TBTS (R4,MT) * NO, SET MYSTERY INTR CONTROL BIT IL 
Ze 2723+* SUPERVISOR AND IT WAS NOT ACCEPTED. 003D16 F304 2839+ CBI 4G ,RS ATTENTION INTERRUPT? IL 
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STMT SOURCE STATEMENT 


I 
* 
n 
* 
* 
x 
* 
* 
* 
k 
* 
* 
* 
* 
* 
* 
* 
* 
x 
* 
* 
* 
* 
* 
* 
* 
$ 


MHRRKKRUWHHH EE 


OMNNMNNNNS SESS LS SS EWWWWWWWWUWNIRIDNIDIDIDIDIDD ad nd ad aed ed ed dd td ed OO OOOO O OOOO U DODD DOWD 0 WDO0D DODO OO ~~) JJ JI SIA AHAAMAAMADAAMNNONUNNNNUNINUIS SESE ESLS 
% & 


ANEW BOW DIRDUEWH OU OIHNUEWN 200 TOU EWN 2OUWO I OULE WN OW OD INUEWN AOU OSI ONUEWNA@OWODDUIEWN @OWDIAUEWN OU OID EWN @OUDIRNUEWNA@OWOIHUEN @O 
soe ly np an A AR i a ARs A Pe i SR ACRE a EAS GR A OL PLS oP PD a OO oA ga ie em Ness ala 


DODD DINRODODD DNA NNIN DAD DDDNDNNDD NNN NN NDR DDD NNDN NNN NNR NNMN DD NNNNNNDNNNNDNNDNDNDNNNDNDDNNNNNDNNNNNNNDNDN NNN NNNNDANDNNDN 
WD DD DYOHWU DW HYUN WOW DWDDWYDUH YU DDOUYNUUWU YW DHW VU DOD KDKW YD WUDOHDWO DUO ODUDDDDODDDODDDHDHDDDODDODDODODADDODDODDODDDODDDDODDDDODDODMOODOODDODOMOM 


B 
XTOCX MVWZ (els R3 


P/N=1635260 EC=755285 PAGE 13 


COPYRIGHT IBM CORP 1976 


JE INTRX YES IL 
TBTS (Ra NG) EPROR,UNEXPECTED INTERRUPT IL 
INTRX SVC x EXIT THIS LEVEL VIA SUPVR TO PGM TIL 
MEK He Ae Me He Ae ee ie Oe ae she ae HC he he ei ae he he ae ah Re he ah ae hee he eh ae he ae ate ae eee he he ae ok of ake ae ok KKK OPER TG ** 
* 
* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROP C) NDITIONS. 
* 
XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 
BN R6 , 2) * YES, EXIT THIS ROUTINE 
TBTR (R4,CS) WAS AUTO CS IN PROGRESS 
JOFF xXIOcV * NO, CONTINUE CHECKING 
TBT (Ra CE) ts cS IN AN ERR CONDITION 
JOFF xroco * NO, BCH 
B R6) * cs ERROR 
XIOCO TBTS (R4,CSA) TORN ON CS STATS AVAIL FLAG 
BXS BO, 2) GO TO USER 
XIOCV TBT RG, ER) WAS ERROP INTP CONTROL BIT ON 
. JOFF xXrocx * NO, EXIT THIS ROUTINE 
MVB SIOIN+1,R5 GET LAST INTR CC CODE 
CBI IS THIS CC=2 
BNE ‘ a *" NO, BCH TO ERROR HANDLER 
XIOCOQ MVB RS GET LAST ISB DATA BYTE AND IF CS 
BN * AVAILABLE, GO AND GET IT 


ERROR 
CLEAR OUT OPTION 3 CNTL BITS 


BXS (R6,2$ RETURN TO USER VIA PEG 6 


* 
: I/o0 PARAMETER LIST 
IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
DC A (XIOER) ERROR ROUTINE ADRS 
IODCB DC A (¥-* DCB ADRS OR LEVEL & INTR 
IOMOD DC A (*- * MODIFIER 
DC A (*-* ADRS OF LAST SVC CALL 
ZORSE DC A (*-* SECOND WORD OF LAST IDCB 
2 INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
DC A (INTOK INTEPRUPT OK RETURN ADRS 
DC A (INTER INTERRUPT ERROR ADRS 
NTCC DC xX 03! INTERPOUPT CODE EXPECTED 
HE He HH He He he eH He ee HE KH He ee He He He He Hee He He He He he He He ee ee he he he ee oe a he ek ee oe ke ek ke KE TIT MAY 76 eX 
SUBROUTINE 
CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
PURPOSE 


TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
ao TAR oRE be DESIRED INTERRUPT LFVEL AND TO ALLOW THE DEVICE 


CALLING SEQUENCE 
THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 


--> BAL SCONC,R6 CLEAP DEV DEP STG AND CONNECT I/0 BLK 
--> BAL SCONP, ;P6 PREPARE DEVICE ONLY, ALREADY CONNECT 


RETURN CONTROL 


BXS (RE 2) RETURN TO USER VIA REG 6 IF OKAY 
B R6{ * 


OR IF THE DEVICE COULD NOT BE CONNECTED 


He Me He ae Me Me fe he Me Me He Hc fe Be eH He ee ee He He He 3h fe he He 34 Ye He Me Mee $c He ke he He ae He He he He He He He He ae He He ah hc He Kk ee He Ke he He He hc He ae oe 
CONC MVBI 6,R7 


NUMBER OF BYTE TO CLEAR 


MVBI 0.R3 * AND THE DATA TO USE 
MVA  DEV1,R5 * ALONG WITH THE ADRS TO USE 
FFN  R3 (85) x 
MVWZ OPN3,R3 CLEAP OLD CONTROLS FOR NEW ROUTINE 
MVA  INTBL,R? SET R7 TO CONTROL BLOCK AND 
SVC CICB * CONNECT IT TO THIS DEVICE 

: BN (R6) * EPROR RETURN TO USER 

S$CONP MVW $INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
MVA IOBLK/P7 SET R7 TO CONTROL BLOCK TO PREPARE 
MVWI x'O708",SIOIN INITIALIZE CONDITION CODE STORAGE 
MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
MVW  R6_-LSTTO SET UP ADDRESS THAT STARTED LAST 1/0 
SVC PREP * AND CALL ON SUPVR 
BXS |, {R6¢2) RETURN T 

RKEKK KKK KKH ee o" Ee Hee fe he ae af He he he ah he He he a he He ae ahah ae ah ee he ae OK a ake a tok kek KKH APR 76 ** 

* 

* SUBROUTINE 

+ DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 

* PURPOSE 

* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 

* SET THE "NO GOOD' CONTROL BIT, THEN LOG THE DATA THAT HAS 

* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 


CALLING SEQUENCE 
THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
=~) B SERRS SET 'NG* BIT AND CONVERT DATA TO LOG 


==> 5 SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
RETURN CONTROL 

B TORTN * RETURN TO ADI 
OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 


JUG EEE EHO BE IES HE UGO CIEE HOE OHO SGU ISSR ISSO SUE: der OnE 
SERRS MVWI 


X'8000' ,TUSTATUS SET ON 'NO GOOD! STATUS BIT 
MVA HEBLK,R4 GET ADRS OF CONTROL BLOCK 


i 
?) 
2) 
KI 
ve) 
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2957+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
2958+$PRNT MVBI P5 
29594 MVA TOWORK,R3 SET UP BUFFER STORAGE 
2960+ MVW R3,BUFPT 
2961+ MVA  LIfE1,R1 
2962+ MVBI 4,R7 
2963+ NVBI 8/R6 
29644+MVBUF MVFN (R3) - (R1) 
2965+ MVBI 4) P 
2966+ MVBI xfuort_R2 
2967+ MVB  R2 grips 
2968+ JcT  MVBUF,R6 
2969+ MVBI 8.R6 
2970+ AWIT 44,R1 
29714 ICT  MVBUF,RS5 
2972+ MVWI PIDHSG610,PID+2 
2973+ MVA  FAKETU,@DCADD1 
2974+ MVA  DC2PT,DCADD2 
2975+ OHI BIT0080,SUPSTAT 
2976+ MVA  $TUID,R3 SET UP BUFFER STORAGE 
29774 BAL TOMSGHTR*,P7 GO TO MESSAGE WRITER 
2979+$CONX EOQU * 
2980+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
2981+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
2982+ B TURTN* RETURN TO MDI SUPERVISOR 
+ 
2984+BEGIN DC 4 (9007 NUMBER OF LINES TO PRINT 
2985+ DC A (0008 LINE LENGTH = 8 CHAP 
2986+ DC C'** ABORT! 
2987+ DC A (0040) LINE LENGTH = 4O CHAR 
2988+ DC C'TUID IOIN ISB INST DEV1 DEV2 DEV3 DEV4 ! 
2989+ DC A (0040) LINE LENGTH = 40 CHAP 
2990+LINE1 DC ce ' 
2991+ DC A (0040) LINE LENGTH = 4O CHAR 
2992+ DC C"CNTL DCB2 DCB3 DCB4 DCB5 CHAD PYCT ADRS ! 
2993+ DC A (0040) LINE LENGTH = 40 CHAR 
2994+LINE2 DC ce 
2995+ DC 4 (0040) LINE LENGTH = 40 CHAR 
2996+ DC C*RSTD CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 CS-8 
2997+ DC A (0040) LINE LENGTH = 40 CHAR 
2998+LINE3 DC ct 
2999+ 
3000+BUFPT DC A ated J 
3001#DC2PT DC A (BEGIN) 
3002+FIXTO DC X"'0101! 
3003+FAKETU} DC x'0101! 
3004+PIDMSG10 EOQU  X'F1FO! 
3005+BTT0080 EOU xX*0080! 
+ 
300 7+% DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
+ 
3009+HEBLK DC 2 NUMBER OF BYTES TO CON ERT 
3010+ DC $e ID) FROM ADRS 
3011+ DC TUWORK) AND THE TO ADRS 
3012 END 


I7841 --- 


DECLARED 
0 


2913 
2979 
2959 


1477 
1447 
1448 
1432 
2559 
2556 
2596 
2553 
1446 
2608 
2611 
105 
106 
42 


uu 


49 
41 
47 


48 


2984 
3005 
3000 
2244 
2374 
1436 
1516 
2113 


READ PROBLEM MAP 


NANE 
-RO,. 


Rf. 
-R2. 


oR3. 


eR5. 


~R7. 


$SCONC 
SCONX 
SERRS 


SINTL 
SIOIN 
$SISB 
$LE 

SP DID 
$RECL 
SRIDS 
$SEEK 
$TUID 
$WSEC 
SWSTS 
@DCADD1 
@DCADD2 
OFIXT 


@GOTO 


@NVLD 
@OUES 
@QUXX 


@TUXX 


BEGIN 
BITOO80 
BUFPT 
CB29 
CCERR 
CE 

CICB 
CLDCB 


P/N=1635260 EC=755285 PAGE 
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ATTRIBUTES AND REFERENCES 
1805 Tank MABAD 1Bdo eee 4099 1934 1936 2469 
2470 2471 2472 2476 2077 2478 # 2479 
ABSOLUTE. HEX VALUE (00000001) 
2961 2968 2967 2970 
ABSOLUTE. HEX VALUE (90000002) 
1680 1731 1732 1748 1753°°1755 1757 #1759 «1937 
1938 1939 1953 2013 2016 2019 2023 2041 2046 
2060 2063 2066 2070 2079 2081 2082 2085 5087 
2966 2967 
ABSOLUTE. HEX VALUE (00000003) 
1945 2375 2376 2417 2421 2423 2502 2504 2560 
2563 2567 2570 2581 2584 2597 2600 2670 2680 
2683 2684 2687 2689 2745 2746 2781 2787 2799 
2821 2826 2839 2869 2914 2916 2917 2925 2959 
2960 2964 2976 
ABSOLUTE. HEX VALUE (00000004) 
1630 1727 1798 1815 1822 °1830 1922 1942 1949 
1960 1968 1982 1989 1992 2007 2026 2052 2054 
2074 2673 2674 2677 2691 2692 2694 2695 4698 
2704 2710 2782 2783 2785 2789 2793 2822 3823 
2824 2834 2835 2836 2838 2841 2851 2853 2855 
ABSOLUTE. HEX VALUE (90090005) 
2010 2011 2014 2017 2020 ° 2057 2058 2061 2064 
2067 2418 2422 2423 2503 2504 2561 2563 2568 
2570 2582 2584 2598 2600 2681 2683 2685 2687 
2703 2708 2830 2831 2832 2863 2864 2866 2915 
2916 2958 2974 
ABSOLUTE. HEX VALUE (00000006) 
1631 1636 1639 1644 1649 1650 1651 1672 1673 
1675 1677 1728 1799 1813 1820 1826 1828 1923 
1940 1947 1958 1964 1966 1980 4984 1999 1999 
2003 2004 2005 2024 2028 2032 2049 2050 2072 
2076 2343 2347 2349 2353 2355 2359 2362 2366 
2368 2372 2377 2424 2425 2464 2505 2679 3699 
2711 2747 2852 2857 2859 2865 2868 2870 2920 
2926 2928 2963 2968 2969 
ABSOLUTE. HEX ee ee ee 
1488 1628 1653 1725 1733 °1735 1796 1802 1853 
1855 1858 1920 1932 2416 2420 2501 2562 2569 
2583 2599 2682 2686 2693 2786 2827 2913 2918 
2923 2956 2962 2965 2977 3980 
ADDRESS, HEX LOCATION (00003D68) IN CSECT(I7841  ) LENGTH(2) 
1631 1728 1799 1923 
ADDRESS. HEX LOCATION(O0003DEC) IN CSECT(I7841  ) LENGTH (1) 
1669 1750 1841 1859. 2036 
ADDRESS. HEY OO 4th eae ak IN CSECT(1I7841 d LENGTH (6) 
1729 1747 1800 1874 1816 1821 1823 1829 1837 
1924 1946 1948 1950 1959 1967 1981 1991 2006 
2025 2027 2051 2055 2073 
sADDRESS. HEX LOCATION (00003500) IN CSECT(I7841  ) LENGTH (2) 
ADDRESS. HEX LOCATION (000034CC) IN CSECT(I7841. ) LENGTH (2) 
2376 2688 2746 2826 2863 2924 
ADDRESS, HEX LOCATION (O0OQ34CE) IN CSECT(I7841  ) LENGTH(2) 
2689 2827 2866 2925 
ABSOLUTE, HEX VALUE (00000026) 
2694 2834 
ADDRESS. HEX LOCATION (00003B96) IN CSECT(I7841  ) LENGTH(6) 
1644 1828 1966 1990. 2024 
jADBRESS; HEX LOCATION (00003B8E) IN CSECT(I7841  ) LENGTH(6) 
ADDRESS. HEX LOCATION (00003C0A) IN CSECT(I7841  ) LENGTH(6) 
ADDRESS, HEX LOCATION (00003B86) IN CSECT(I7841  ) LENGTH(6) 
1636 1820 1958 1980. 2032 
ADDRESS. HEX LOCATION (OOOO34CA In CSECT (17841 ) LENGTH (2) 
1487 1629 1726 1797. 1921 2976 3010 
jADDRESS. HEX LOCATION (00003C32) IN CSECT(I7841  ) LENGTH(6) 
ADDRESS, HEX LOCATION (00003C40) IN CSECT(I7841  ) LENGTH (6) 
> RDBRESS. HEX LOCATION (000019B8) IN CSECT(I7841  ) LENGTH(1) 
oADDRESS. HEX LOCATION(000019BA) IN CSECT(I7841  ) LENGTH(1) 
ABSOLUTE. HEX VALUE (00000101) 
555 582 609 4756 #759 ° #780 ###792 #2804 °&807 
819 834 855 858 870 873 4988 4.957 #960 
975 1034 1037 1081 1084 
ABSOLUTE. HEX VALUE (90000200) 
636 876 882 £4888 894 ° 900 906 912 #&2918 
951 1002 1051 1087 
ABSOLUTE. HEX VALUE (00000600) 
1017. 1049 
ABSOLUTE, HEX VALUE(00000100) 
552 1031 
ABSOLUTE. HEX VALUE (00000400) 
738 747 #4762 #771 + +«2783 ° «2795 810 £837 °#& 846 
861 1008 1040 
ABSOLUTE. HEX VALUE (00000500) 
558 570 585 597 4612 4624 #642 #424654 #4666 
678 690 702 714 726 822 924 #936 #963 
978 990 1019 1057 1069 
aaDDRESS- HEX LOCATION(00003DF6) IN CSECT(I7841  ) LENGTH(2) 
> ABSOLUTE. HEX VALUE (00000080) 
aADDRESS. HEX LOCATION(OOOO3EFE) IN CSECT(I7841  ) LENGTH (2) 
siey HEX LOCATION (00003A 1C) IN CSECT (I7841 ) LENGTH (2) 
ADDRESS. HEX LOCATION (OQQO3AEE) IN CSECT(I7841  ) LENGTH(2) 
2346 2352 2358 2365 71 
ABSOLUTE. HEX VALUE (0000002a) 
2673. 2785 285 
jAPSOLUTE. HEX VALUE (00000014) 
oADDRESS. HEX LOCATION(0000394A) IN CSECT(I7841  ) LENGTH(2) 
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NAME ATTRIBUTES AND REFERENCES 
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INTES oADDRESS. HEX LOCATION (00003CEO) 
INTET pABDRESS. REX LOCATION (00003CE8) 
INTOK a ADDRESS. HEX LOCATION (00003CEC) 
INTRNL ABSOLUTE. HEX VALUE (00000000) 
INTRX ADDRESS. HEX LOCATION (00003D1C) 
2837 2840 
INTR1 ADDRESS. HEX LOCATION (00003CF4) 
2788 2792 
INTR2 a ADDRESS. HEX LOCATION (00003D02) 
INTR3 > ADDRESS. HEX LOCATION (00003D10) 
TOBLK ADDRESS. HEX LOCATION (00003D54) 
1653. 1733. 1735. 1802. 1855 3 
TODCB ADDRESS. HEX LOCATION (00003058) 
1854 2553 2556 2559 2571 257 
2592 2596 2604 2608 2611 261 
TOMOD ADDRESS. HEX_LOCATION (00003054) 
1655 1737. 1739. 1741. «1743 (174 
17841 CSECT. START (00002500) LENGTH (66 
LGSEC ADDRESS, HEX LOCATION (00003A18) 
1638 1665 1666 1825 1836 183 
2043 2044 2465 2467 2470 247 
LINE1 oADDRESS. HEX LOCATION (00003E2E) 
LSTIO ADDRESS. HEX LOCATION (000034D0) 
2343 2349 2355 2362 2368 267 
LWSID jRRBRESS. HEX LOCATION (00003876) 
HI ohBSoLore. HEX VALUE (00000020) 
MVBUF ADDRESS. HEX LOCATION (00003DBa) 
2968 2971 
MX ABSOLUTE. HEX VALUE(00000204) 
NG ABSOLUTE. HEX VALUE (0000002C) 
NI oR SOLUTE. HEX VALUE (00000027) 
N00001 ADDRESS. HEX LOCATION (00002630) 
100002 ADDRESS. HEX LOCATION (00002634) 
N00003 ADDRESS. HEX LOCATION (00002638) 
N00004 ADDRESS. HEX LOCATION (0000264A) 
N00005 ADDRESS. HEX LOCATION (0000265C) 
N00006 ADDRESS. HEX LOCATION (00002660) 
N00007 ADDRESS. HEX LOCATION (00002672) 
N00008 ADDRESS. HEX LOCATION (00002684) 
N00009 ADDRESS. HEX LOCATION (00002688) 
N00010 ADDRESS. HEX LOCATION (00002698) 
N00011 ADDRESS. HEX LOCATION (000026AC) 
N00012 ADDRESS, HEX LOC ATION (00002688) 
N00013 ADDRESS. HEX LOC ATION (000026CA) 
NOOO14 ADDRESS. HEX LOCATION (000026DC) 
N00015 ADDRESS. HEX LOCATION (000026EE) 
N00016 ADDRESS. HEX LOCATION (00002700) 
N00017 ADDRESS. HEX LOCATION (00002712) 
N00018 ADDRESS. HEX LOCATION (00002724) 
N00019 ADDRESS. HEX LOCATION (00002736) 
N00020 ADDRESS. HEX LOCATION (00002748) 
N00021 ADDRESS. HEX LOCATION (00002756) 
N00022 ADDRESS. HEX LOC ATION (00002764) 
100023 ADDRESS, HEX LOCATION (00002768) 
N00024 ADDRESS. HEX LOCATION (0000276C) 
N00025 ADDRESS. HEX LOC ATION (00002778) 
N00026 ADDRESS. HEX LOCATION (00002788) 
N00027 ADDRESS, HEX LOCATION (0000278C) 
N00028 ADDRESS. HEX LOC ATION (0000279A) 
N00029 ADDRESS, | HEX LOCATION (00002798) 
100030 ADDRESS. HEX LOCATION (000027AC) 
N00031 ADDRESS, HEX LOCATION (00002780) 
N00032 ADDRESS. HEX, LOCATION (00002754) 
N00033 ADDRESS. HEX LOCATION (000027C2) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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T7841 --=- 


DECLARED 
2196 
1504 
1515 
1505 
2218 
2128 


2476 
1454 


2253 
2152 


1506 
2298 

107 
166 1 
1680 
1669 
1639 
1679 
16 36 
1672 
18 26 
1836 
1841 
1811 
2474 
2480 
2423 

95 

719 

101 
1478 

77 

78 
1748 
1753 
1755 
1757 
1750 
1759 
1808 
18 10 
1809 
1487 
1858 
1859 
1725 
16 28 


1935 
1853 
19 20 


2043 
2081 
2071 


READ PROBLEN MAP 


NANE 
RDDCB 
RESET 
RICB 
RID 
RKDCB 
RSDCB 


RTTO1 
SCTID 


scTSt 
SKDCB 


START 
STATS 
SUPSTAT 
S11B 
$11G 
511H 
S11K 
ST1R 
S118 


,S11WR 


S20B 
$20C 
S20D 
T0720 
TT303 
TT 304 
TT4Y 
TUNSGWTR 
TOUPARM1 
TURESOUL 
TURTN 
TUSTATUS 
TUWORK 
TI2A 
T12B 
T12C 
T12D 
T12E 
T12F 
T20TC 
T2071 
T2072 
T3C02 
T72A 
T72B 
T7812 
T7834 


T7684 
T7872 
T7884 


TOGA 
TO4GAA 
T84B 


P/N= 1635260 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


oAPBRESS: HEX LOCATION(000039CA) IN 
ABSOLUZE. HEX VALUE (00000008) 
ABSOLUTE. HEX VALUE (00000013) 
ABSOLUZE. HEX VALUE (00000009) 

DRESS. HEX LOCATION (OQOQ39EA) IN 
1643 1988 2580 2585. 2592 3593 

DRESS. HEX LOCATION (0000396A) IN 
1o40 1824 1627 1962 1965 1985 
oADBRESS. HEX LOCATION (00003562) IN 

DRESS. HEX LOCATION (000034D2) IN 
1832 1834 1970 1972 1994 2135 
2502 2561 2564 2582 2585 

DRESS. HEX LOCATION(OOOO3A2E) IN 
2017 2593 2598 2601 

PRESS. HEX LOCATION (0000398A) IN 
1634 1635 1657 1659 1661 1663 
1955 1956 1957 1978 1979 2030 
phBSOLUTE. HEX VALUE (0000000a) 

DRESS. HEX LOCATON (OQQO3A88) IN 
2009 2010 2021 2056. 2057. 2068 
pABDRESS. HEX LOCATION(O00019CH) IN 
,BRDRESS. HEX LOCATION (00003592) IN 
ADDRESS. HEX LOCATION(000035DA) IN 


see LOC ATT ON (0900 35bC) aN 
HEX LOCATION (00003535) 
5 HEX LOCATION (000035D6) IN 
‘ HEX LOCATION (00003532) IN 
e HEX LOCATION(000035C0) IN 
RESS. HEX LOCATION (000036B6) IN 
RESS. HEX LOCATION (O000036DC) IN 
HEX LOCATION (OOOO36EE) IN 
RESS. HEX LOCATION(0000367C) IN 
RESS. HEX LOCATION (OO003B5A) IN 
RESSs HEX LOCATION (00003B72) IN 
RESS. HEX LOCATION(O0003B2A) IN 
RESS. HEX LOCATION(000018BA) IN 
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HEX LOCATION(0000181A) IN 
HEX LOCATION (00003632) IN 
HEX LOCATION (00003638) IN 
ESS. HEX LOCATION (0000363C) IN 
ESS. HEX LOCATION(00003640) IN 
ESS. HEX LOCATION (00003634) IN 
1756 1758 
RESS. HEX LOCATION(00003644) IN 
RESS. HEX LOCATIOW(00003670) IN 
RESS. HEX LOCATIOW(00003678) IN 
RESS. HEX LOCATION(00003676) IN 
HEX LOCATION(0000350A) IN 
HEX LOCATION(00003704) IK 
HEX LOCATION (00003708) IN 
gHEX LOCATION (000035DE) IN 


e HEX BOC ATION (00003512) IW 
749 764 7173 785 97 


RESS. HEX LOCATION (00003740) IN 
HEX LOCATION(000036F2) IN 
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4 BRR Rs hee LOCATION(0000189A) IN 
RESS. HEX LOCATION(000018C8) IN 
1 1732. 1937 1938 1939 
RESS. HEX LOCATION (00003502) IN 
1 1725 1796 1853 1858 1920 
RESS. HEX LOCATION(00001818) I 
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CATION (0000370C ant 


656 668 


1059 


CATION (00003924) 


LO 
36 Ges 1 
LOCATION (O0G38BA) 
LO 

54 

LOCATION (00003908) 


IN CSECT (17841 
IN CSECT(I7841 
IN CSECT(I7841 


CSECT (17841 
692° 704 
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) LENGTH (2) 


) LENGTH (2) 
a5 be LENGTH (2) 


) LENGTH (4) 
Saban ee 


) LENGTH (2) 
LENGTH (2 
1849 ve 


) LENGTH (2) 
) LENGTH (1) 
) LENGTH (6) 
) LENGTH (2) 
) LENGTH (4) 
) LENGTH (4) 
) LENGTH (4) 
) LENGTH (4) 
) LENGTH (4) 
) LENGTH (4) 
) LENGTH (6) 
) LENGTH (4) 
) LENGTH (2) 
) LENGTH (6) 
) LENGTH (4) 
) LENGTH (2) 
) LENGTH (1) 
) LENGTH(1) 
) LENGTH (1) 
) LENGTH (2) 
) LENGTH(1) 
) LENGTH (1) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (4) 
) LENGTH(2) 
) LENGTH (6) 
) LENGTH (4) 
) LENGTH (2) 
) LENGTH (6) 
) LENGTH (4) 
) LENGTH (4) 
) LENGTH (4) 
a gtZNGTH (4) 


) LENGTH (2) 
) LENGTH (4) 


LENGTH (9 
7h6 o 


) LENGTH (6) 
) LENGTH (2) 
) LENGTH (2) 


I7841 --- 


DECLARED 
2082 
20 20 
20174 
2017 
2079 
2085 
2024 
1945 
2064 
2041 
2061 
20 36 
2046 
1984 
2072 
2067 
2078 
2087 
1931 
1934 
1932 
2049 
1955 
1974 
1978 
1964 
2185 
2207 
2174 
2246 
2118 
2250 


1430 
1428 
2670 


2851 
2858 
2675 
2860 
2869 
2744 
2679 
2692 
2704 

65 


2228 


READ PROBLEM NAP 


NAME 
T84BB 
TBUC 
T84cc 
T84DD 
T84E 
T84EE 
TS4F 
TS84UFF 
T84GG 
T84H 
TS4HH 
TS84J 
T84IT 
TE4K 
T84KK 
TE4L 
TB4R 
T84T 
T84TC 
T8aT1 
T84T2 
T84WR 
T84Z 
T842 
T843 
T844 
VRDCB 
WKDCB 
WRDCB 
WRSID 
WSDCB 
WSIDT 


XE 
XI 
XIO 


XIOCK 
XIOCO 
XITocs 
XIOCV 
XIOCX 
XIOER 
xIo1 

XIO2 

XIO8 

XTRNL 


ZEROO 


SEEKS KK REALE RESSERKKKKKKHKKKEKEKEKKKKKEKEKE TAST PAGE 


P/N=1635260 EC=755285 
CROSS~REFERENCE LISTING COPYRIGHT 
ATTRIBUTES AND REFERENCES 

oADDRESS. HEX LOCATION (00003926) IN CSECT(I7841  ) LENGTH (2) 
SAPDRESS. HEX LOCATION(00003880) IN CSECT(I7841 ) LENGTH(2) 
sADDRESS. HEX LOCATION (00003874) IN CSECT(I7841  ) LENGTH(2) 
sADDRESS. HEX LOCATION (0000387A) IN CSECT(I7841  ) LENGTH (2) 
SABDRESS. HEX LOCATION(00003920) IN CSECT(I7841 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00003932) IN CSECT(I7841  ) LENGTH(2) 
oADDRESS. HEX LOCATION (0000388C) IN CSECT(I7841 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00003755) IN CSECT(I7841  ) LENGTH(4) 
gADDRESS. HEX LOCATION(000038F6) IN CSECT(I7841 ) LENGTH(2) 
aABDRESS. HEX LOCATION(000036B6) IN CSECT(I7841 ) LENGTH(2) 
sADDRESS. HEX LOCATION (000038F0) IN CSECT(I7841 ) LENGTH(2) 
ADDRESS. HEX LOCATION (000038B2) IN CSECT(I7841  ) LENGTH(4) 
2034 2042 2047 2071 208 

ADDRESS. HEX LOCATION(000038C8) IN CSECT(I7841  ) LENGTH(2) 
ADDRESS. HEX LOCATION (000037FA) IN CSECT(I7841 ) LENGTH(4) 
aADBRESS. HEX LOCATION(0000390A) IN CSECT(I7841 ) LENGTH (4) 
ADDRESS. HEX LOCATION (000038FC) IN CSECT(I7641 ) LENGTH (2) 
aADDRESS. HEX LOCATION(0000391C) IN CSECT(I7841  ) LENGTH(4) 
aABDRESS. HEX LOCATION (00003936) IN CSECT(17841 ) LENGTH(2) 
AABDRESS. HEX LOCATION (00003730) IN CSECT(I7841 ) LENGTH(6) 
jADDRESS. HEX LOCATION (0000373C) IN CSECT(I7841 ) LENGTH (4) 
ABDRESS. HEX LOCATION (00003736) IN CSECT(I7841 ) LENGTH (4) 
jARDRESS. HEX LOCATION(000038CC) IN CSECT(I7841  ) LENGTH(4) 
ADDRESS. HEX LOCATION (00003782) IN CSECT(I7841  ) LENGTH(6) 
jADBRESS. HEX LOCATION (000037D0) IN CSECT(17841 ) LENGTH (6) 
ADDRESS. HEX LOCATION(000037E2) IN CSECT(I7841 ) LENGTH (6) 
ADDRESS. HEX LOCATION (000037AC) IN CSECT(I7841 ) LENGTH(4) 
a ADDRESS. HEX LOCATION(000039BA) IN CSECT(I7841 ) LENGTH(2) 
ADDRESS. HEX LOCATION(000039DA) IN CSECT(I7841  ) LENGTH(2) 
1642 1987 2588 3589 2608 2605 

,AbDRESS. HEX LOCATION(O00039AA) IN CSECT(I7841  ) LENGTH(2) 
ADDRESS. HEX LOCATION (00003420) IN CSECT(I7841  ) LENGTH(2) 
2125 2214 2422 2503 2605 2609 

ADDRESS. HEX LOCATION (09003952) IN CSECT(I7841  ) LENGTH (2) 
1641 1986 2608 2609 2611 2612 

ADDRESS. HEX LOCATION (00003428) IN CSECT(Z7841 _ } LENGTH (2) 
1646 1647 1648 1996 1997 1998 2000 2001 2002 

2418 2589 2612 

ABSOLUTE. HEX VALUE (00000024) 

1989 2789 2851 

ABSOLUTE. HEX VALUE (00000022) 

ADDRESS. HEX LOCATION (00003C56) IN CSECT (17841 Y, LENGTH (4) 
2554 2557 2565 2572. 2575 2578 2586 °2590 2594 

2602 2606 2610 2613 2616 

ADDRESS. HEX LOCATION (00003D1E) IN CSECT(I7841 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00003D30) IN CSECT(I7841 ) LENGTH (2) 
ADDRESS. | HEX LOCATION (00003C60) IN CSECT(I7841  ) LENGTH(6) 
ABPRESS. HEX LOCATION (00003D34) IN CSECT(I7641 ) LENGTH (2) 
aADDRESS. HEX LOCATION(Q0003D4E) IN CSECT(I7841 ) LENGTH(4) 
aADPRESS. HEX LOCATION(00003CBC) IN CSECT(I7841  ) LENGTH(2) 
ADDRESS. HEX LOCATION (00003C70) IN CSECT(I7841 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00003C96) IN CSECT(I7841 ) LENGTH (2) 
a ADDRESS. HEX LOCATION (OO003CAA) IN CSECT(I7841  ) LENGTH(2) 
ABSOLUTE. HE VALUE (0000000 1) 

1389 1388 92 898 904 910 916 922 1006 

ADDRESS, HEX LOCATION(O00039FA) IN CSECT(I7841 ) LENGTH (2) 
1832 1970 1994 3465 
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